Komutlara Resim Eklemek
VB 3'de baz² API fonksiyonlar²n² kullanarak her menⁿ komutunun kenar²na
bir resim yerle■tirebiliyorduk. VB4'te ise bu i■lem τok daha kolay bir
hale getirilmi■. Program ile birlikte bilgisayar²n²za kurulan fakat siz
onu bulmad²kτa gizlenen ImageList kontrolⁿ sayesinde bir kaτ sat²r kodla
bu i■i gerτekle■tirebiliyorsunuz. Program² τal²■t²rd²≡²n²z anda ImageList
iτindeki kⁿτⁿk simgeler menⁿ seτeneklerine yerle■tirilecek ve program sonlanana
kadar orada kalacakt²r.
Private Sub Form_Load()
Dim i%
Dim hMenu, hSubMenu, menuID, x
hMenu = GetMenu(hwnd)
hSubMenu = GetSubMenu(hMenu, 0)
For i = 1 To 4
menuID = GetMenuItemID(hSubMenu, i - 1)
x = SetMenuItemBitmaps(hMenu, menuID, &H4, img.ListImages(i).Picture,
img.ListImages(i).Picture)
Next
menuID = GetMenuItemID(hSubMenu, 5)
x = SetMenuItemBitmaps(hMenu, menuID, 0, img.ListImages(5).Picture, 0&)
End Sub